{$armlet appl,LDIH,armp,100}
program iBHelloPP;

var iBasStr:string;

type
 Int16=-32768..32767;
 UInt16=0..65535;

procedure WinDrawChars(const chars:string;len:Int16;x,y:UInt16); systrap $220;

procedure CallPParm;
begin
 WinDrawChars(iBasStr,Length(iBasStr),2,90);
 iBasStr:='Hello dear iziBasic';
end;

begin
 CallPParm;
end.
 